home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / CODING / DELPHI / DTMFEDIT.ZIP / DTMFDEMO.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-05-10  |  1.5 KB  |  70 lines
  1. unit Dtmfdemo;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, StdCtrls, DTMFEdit, Buttons;
  8.  
  9. type
  10.   TDTMFEditDemo = class(TForm)
  11.     QandZ: TCheckBox;
  12.     AutoFormat: TCheckBox;
  13.     NumericFormat: TCheckBox;
  14.     Button1: TButton;
  15.     Numeric: TEdit;
  16.     AlphaNumeric: TEdit;
  17.     Locale: TEdit;
  18.     Country: TEdit;
  19.     Label1: TLabel;
  20.     Label2: TLabel;
  21.     Label3: TLabel;
  22.     Label4: TLabel;
  23.     DTMFEdit1: TDTMFEdit;
  24.     procedure QandZClick(Sender: TObject);
  25.     procedure NumericFormatClick(Sender: TObject);
  26.     procedure AutoFormatClick(Sender: TObject);
  27.     procedure FormCreate(Sender: TObject);
  28.     procedure Button1Click(Sender: TObject);
  29.   private
  30.     { Private declarations }
  31.   public
  32.     { Public declarations }
  33.   end;
  34.  
  35. var
  36.   DTMFEditDemo: TDTMFEditDemo;
  37.  
  38. implementation
  39.  
  40. {$R *.DFM}
  41.  
  42. procedure TDTMFEditDemo.QandZClick(Sender: TObject);
  43. begin
  44.  DTMFEdit1.AllowQandZ := QandZ.Checked;
  45. end;
  46.  
  47. procedure TDTMFEditDemo.NumericFormatClick(Sender: TObject);
  48. begin
  49.  DTMFEdit1.NumericConversion := NumericFormat.Checked;
  50. end;
  51.  
  52. procedure TDTMFEditDemo.AutoFormatClick(Sender: TObject);
  53. begin
  54.  DTMFEdit1.AutoFormat := AutoFormat.Checked;
  55. end;
  56.  
  57. procedure TDTMFEditDemo.FormCreate(Sender: TObject);
  58. begin
  59.  QandZ.Checked := DTMFEdit1.AllowQandZ;
  60.  NumericFormat.Checked := DTMFEdit1.NumericConversion;
  61.  AutoFormat.Checked := DTMFEdit1.AutoFormat;
  62. end;
  63.  
  64. procedure TDTMFEditDemo.Button1Click(Sender: TObject);
  65. begin
  66.  DTMFEdit1.ParseDTMF;
  67. end;
  68.  
  69. end.
  70.